home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 October / Macformat17.cdr / Shareware City / Developers / GAL ƒ / GAL examples / nested subs w local vbl < prev    next >
Encoding:
Text File  |  1994-07-11  |  245 b   |  19 lines  |  [TEXT/ttxt]
  1. ; subroutines don't do much but do show nesting ability
  2.     begin_code
  3.     jump:sub    first
  4.     halt
  5. first
  6.     jump:sub    second
  7.     return
  8.     end_code
  9.     begin_data
  10. local    constant    5,15
  11.     end_data
  12.     begin_code
  13. second
  14.     jump:sub    third
  15.     return
  16. third
  17.     return
  18.     end_code
  19.     end